* wid-edit.el (widget-checklist-match-inline): Fix 2011-04-19 change. (Bug#8649)

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index fe42d4ea1a986fed9055b465665eb8b83dd9738e..251426ffd07a0dc396e18c84f502e57167dc8d9c 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-21  Glenn Morris  <rgm@gnu.org>
+
+       * wid-edit.el (widget-checklist-match-inline):
+       Fix 2011-04-19 change.  (Bug#8649)
+
 2011-05-20  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * emacs-lisp/checkdoc.el (checkdoc-sentencespace-region-engine):

diff --git a/lisp/wid-edit.el b/lisp/wid-edit.el
index 31cc8ad9ca9e5a91c656d7b41c887dc1b3187fd9..7b7813db94b3f5409ee7e9c15fff1b21a82cbb10 100644 (file)
--- a/lisp/wid-edit.el
+++ b/lisp/wid-edit.el
@@ -2283,9 +2283,9 @@ If the item is checked, CHOSEN is a cons whose cdr is the value."
     (while vals
       (let ((answer (widget-checklist-match-up args vals)))
        (cond (answer
-              (let ((vals (widget-match-inline answer vals)))
-                (setq found (append found (car vals))
-                      vals (cdr vals)
+              (let ((vals2 (widget-match-inline answer vals)))
+                (setq found (append found (car vals2))
+                      vals (cdr vals2)
                       args (delq answer args))))
              (greedy
               (setq rest (append rest (list (car vals)))